@list = (1,2,3,4,5,6,7,8);

foreach $a (@list){
	print "Value of a in list is:$a\n";
};